home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Extravaganza - Disc 4
/
Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso
/
cad
/
jul90.zip
/
TIP555.MNU
< prev
next >
Wrap
Text File
|
1990-07-09
|
213b
|
7 lines
[COPYROTA tip# 555 (c)1990 T.Priest]*^C^C(setq E(entlast));+
SELECT;AU;\COPY;P;;0,0;;ROTATE;P;;\\+
(setq I 0 COUNT (sslength(ssget "P")));+
(while (< I count)(redraw+
(setq E (entnext E)))(setq I (1+ I)))